home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / falcon / programm.ing / nt_dsp1.lzh / NT_DSP1.MSA / LFLTS / LATNRMT.ASM < prev   
Assembly Source File  |  1989-01-24  |  2KB  |  51 lines
  1. ;
  2. ; This program originally available on the Motorola DSP bulletin board.
  3. ; It is provided under a DISCLAMER OF WARRANTY available from
  4. ; Motorola DSP Operation, 6501 Wm. Cannon Drive W., Austin, Tx., 78735.
  5. ; 
  6. ; Normalized Lattice IIR Filter Macro. (test program)
  7. ; 
  8. ; Last Update 01 Aug 86   Version 1.0
  9. ;
  10. ;
  11. ;       normalized lattice test program
  12. ;
  13.         opt     cex
  14.         page    132,66,0,10
  15.         nolist
  16.         include 'dsplib:ioequ'
  17.         list
  18.         include 'dsplib:latnrm'
  19.  
  20. order   equ     3               ;three coefficient lattice
  21. datin   equ     $ffff           ;location in y memory of input file
  22. datout  equ     $fffe           ;location in y memory of output file
  23. npts    equ     20              ;number of points to process
  24.  
  25.         org     x:0
  26. ;       note: the following coefficients were used for testing
  27. ;       purposes only and do not follow the relationship q=sqrt(1-k**2)
  28. ;       as described by Markel
  29. ;
  30. cadd    dc      .9,.8,.7,.6,.3,.2       ;q1,k1,q2,k2...
  31.         dc      .1,.2,.3,.4             ;v's
  32.         org     y:0
  33. state   ds      10              ;filter states
  34.  
  35.         org     p:$100
  36. start
  37.         movep   #0,x:M_BCR      ;no wait states on external io
  38.  
  39.         move    #cadd,r0        ;point to k's
  40.         move    #3*order,m0     ;mod order
  41.         move    #state,r4       ;point to first state
  42.         move    #order,m4       ;mod order
  43.  
  44.         do      #npts,_endp
  45.  
  46.         move    y:datin,y0      ;get input sample
  47.         latnrm  order           ;do normalized lattice
  48.         move    a,y:datout      ;output filtered sample
  49. _endp
  50.         end
  51.